Star Trek Starfleet Academy Mini Omnipedia/MINI_OMNI.ISO/pc/omni_v2.dxr/00366_picon killer DESTRUCTOR.ls

Text File | 1996-04-15 | 747 b | 36 lines

on hprepzapper
  set vSize to the number of lines in field 10
  startTimer()
  set x to 0
  repeat with n = 1240 to 3500
    if field 10 contains string(n) then
      set x to x + 1
    end if
  end repeat
  put the timer
  put x
end

on hKillUnUsedPicons
  set vL to value(field "we use these picons")
  sort(vL)
  copyToClipBoard(cast "blankhold")
  startTimer()
  repeat with n = 1240 to 3501
    if getOne(vL, n) = 0 then
      pasteClipBoardInto(cast n)
    end if
  end repeat
  put "Picons killed in" && the timer && "ticks"
end

on hFillEMptiesWIthBlanks a, b
  copyToClipBoard(cast "blankhold")
  repeat with n = a to b
    if the castType of cast n = #empty then
      pasteClipBoardInto(cast n)
    end if
  end repeat
  put "done"
end